home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
newsgroups
/
misc.19970626-19970929
/
000303_news@newsmaster….columbia.edu _Sat Sep 6 13:01:19 1997.msg
< prev
next >
Wrap
Internet Message Format
|
2020-01-01
|
8KB
Return-Path: <news@newsmaster.cc.columbia.edu>
Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.35.30])
by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id NAA06657
for <kermit.misc@watsun.cc.columbia.edu>; Sat, 6 Sep 1997 13:01:05 -0400 (EDT)
Received: (from news@localhost)
by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id NAA00220
for kermit.misc@watsun; Sat, 6 Sep 1997 13:00:59 -0400 (EDT)
Path: news.columbia.edu!panix!howland.erols.net!newsxfer3.itd.umich.edu!agate!news.Stanford.EDU!nntp.Stanford.EDU!taal.Stanford.EDU!stew
From: stew@taal.Stanford.EDU (Stewart Levin)
Newsgroups: comp.protocols.kermit.misc
Subject: Announce: xtdialer - menu-based kermit dialing
Date: 6 Sep 1997 16:46:54 GMT
Organization: Stanford Exploration Project
Lines: 176
Sender: Stewart.A.Levin@newsmaster.cc.columbia.edu
Distribution: world
Message-ID: <5us1du$d4b$1@nntp.Stanford.EDU>
NNTP-Posting-Host: taal.stanford.edu
Summary: Dialing automated telephone response systems w/ pull-down menus
Keywords: kermit xtpanel automated telephone
Xref: news.columbia.edu comp.protocols.kermit.misc:7624
xtdialer provides a graphical tool with pull-down menus
for using kermit to dial up and interact with an automated
telephone response system. I use it to check on mutual
fund balances.
xtdialer is built as an "xtpanel" script. Xtpanel is
available from the X11R6 contrib files and from
ftp://sepftp.stanford.edu/pub/Xtpanel/.
I have place the attached short shar file on my web page
http://sepwww.stanford.edu/oldsep/stew/index.html.
Enjoy!
- Stewart A. Levin
stew_at_sep.stanford.edu
-----------CUT HERE -----------------------------------------
#!/bin/sh
# This is a shell archive (produced by GNU sharutils 4.2).
# To extract the files from this archive, save it to some FILE, remove
# everything before the `!/bin/sh' line above, then type `sh FILE'.
#
# Made on 1997-09-06 11:17 CDT by <stew@salevin>.
# Source directory was `/home/stew/xtdialer.dir/temp'.
#
# Existing files will *not* be overwritten unless `-c' is specified.
# This format requires very little intelligence at unshar time.
# "if test", "echo", "mkdir", and "sed" may be needed.
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 933 -rw-rw-r-- xtdialer.dir/xtdialer.script
# 270 -rw-rw-r-- xtdialer.dir/services/Fidelity
# 271 -rw-rw-r-- xtdialer.dir/services/Scudder
# 67 -rw-rw-r-- xtdialer.dir/kermscript
# 1499 -rw-rw-r-- xtdialer.dir/README
#
echo=echo
if mkdir _sh00406; then
$echo 'x -' 'creating lock directory'
else
$echo 'failed to create lock directory'
exit 1
fi
# ============= xtdialer.dir/xtdialer.script ==============
if test ! -d 'xtdialer.dir'; then
$echo 'x -' 'creating directory' 'xtdialer.dir'
mkdir 'xtdialer.dir'
fi
if test -f 'xtdialer.dir/xtdialer.script' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'xtdialer.dir/xtdialer.script' '(file already exists)'
else
$echo 'x -' extracting 'xtdialer.dir/xtdialer.script' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/xtdialer.script' &&
Xvar={ name=sourcedir value="/home/stew/xtdialer.dir" }
Xstartup={ action="ASSIGN sourcedir `echo $${XTDIALER-$(sourcedir)}`" }
X
Xhbox={ name=noborder
X message={ value="XTDIALER" name=title }
X button={ label="Quit"
X action="ASSIGN kermit OUTPUT ATH0Z\13\n"
X action="ASSIGN kermit EXIT\n"
X action=QUIT }
X }
X
Xoutput={ name=kermit stream="$(sourcedir)/kermscript" separator="\n" }
Xstartup={
X action="ASSIGN kermit SET EXIT WARNING OFF\13\n"
X }
Xhbox={ name=noborder
X menubutton={ label="Service" itemlist={ list=`ls $(sourcedir)/services` }
X action="ASSIGN service $(val)"
X action="DESTROY commands"
X action="CREATE service menubutton={ name=commands label=""Commands"" `cat $(sourcedir)/services/$(val)` action=""ASSIGN kermit OUTPUT $$(val)\13\n"" }" }
X message={ name=service value="None" }
X
X menubutton={ label="Commands" name=commands
X item={ label="None" value=" " }
X }
X}
SHAR_EOF
: || $echo 'restore of' 'xtdialer.dir/xtdialer.script' 'failed'
fi
# ============= xtdialer.dir/services/Fidelity ==============
if test ! -d 'xtdialer.dir/services'; then
$echo 'x -' 'creating directory' 'xtdialer.dir/services'
mkdir 'xtdialer.dir/services'
fi
if test -f 'xtdialer.dir/services/Fidelity' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'xtdialer.dir/services/Fidelity' '(file already exists)'
else
$echo 'x -' extracting 'xtdialer.dir/services/Fidelity' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/services/Fidelity' &&
Xitem={ label="Fidelity 800" value="ATM1L3S15=0DP18005445555;" }
Xitem={ label="Fidelity Login" value="ATDTsocsecnum+pin#;" }
Xitem={ label="Account Balances" value="ATDT*63991;" }
Xitem={ label="Recent Activities" value="ATDT*6421;" }
Xitem={ label="Hangup" value="ATH0Z" }
SHAR_EOF
: || $echo 'restore of' 'xtdialer.dir/services/Fidelity' 'failed'
fi
# ============= xtdialer.dir/services/Scudder ==============
if test -f 'xtdialer.dir/services/Scudder' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'xtdialer.dir/services/Scudder' '(file already exists)'
else
$echo 'x -' extracting 'xtdialer.dir/services/Scudder' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/services/Scudder' &&
Xitem={ label="Scudder 800" value="ATM1L3S15=0DP18003432890;" }
Xitem={ label="Scudder Login" value="ATDT1,socsecnum,pin#;" }
Xitem={ label="CIT Balance" value="ATD*#,1,2;" }
Xitem={ label="CIT Last Dividend" value="ATD*#,1,3,065,,1;" }
Xitem={ label="Hangup" value="ATH0Z" }
SHAR_EOF
: || $echo 'restore of' 'xtdialer.dir/services/Scudder' 'failed'
fi
# ============= xtdialer.dir/kermscript ==============
if test -f 'xtdialer.dir/kermscript' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'xtdialer.dir/kermscript' '(file already exists)'
else
$echo 'x -' extracting 'xtdialer.dir/kermscript' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/kermscript' &&
Xkermit -z -q -m gateway-telepath -l /dev/modem -b 2400 > /dev/null
SHAR_EOF
: || $echo 'restore of' 'xtdialer.dir/kermscript' 'failed'
fi
# ============= xtdialer.dir/README ==============
if test -f 'xtdialer.dir/README' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'xtdialer.dir/README' '(file already exists)'
else
$echo 'x -' extracting 'xtdialer.dir/README' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'xtdialer.dir/README' &&
XXTDIALER: X-Window menu-based telephone dialing
X
XThis package contains a short xtpanel (X11R6 contrib or
Xftp://sepftp.stanford.edu) script and sample services
Xdirectory that allow you to use your computer modem to dial
Xthe touchtone codes needed to retrieve information from
Xautomated telephone systems. I use it to check on
Xmutual fund balances. It is freely available for
Xyour personal use.
X
XPlace the source and services directory tree in any
Xconvenient place and edit the xtdialer.script file
Xto initialize the corresponding "sourcedir" variable
Xto that location. (The environment variable XTDIALER
Xmay be used to override this default.) Then create a
Xone-line script or alias to invoke xtpanel with that
Xinput script. Finally, modify the one line "kermscript"
Xfile to set (or remove) the modem type, line and speed
Xflags on the kermit command line.
X
Xxtdialer uses the $(sourcedir)/services subdirectory
Xto set its menu choices. It treats the name of each
Xfile in that subdirectory as an automated dialup
Xservice and extracts a menu of commands from the
Xcorresponding file when its name is selected.
X
XThe format of a service file is a list of items:
X
Xitem={ label="Fidelity 800" value="ATM1L3S15=0DT1800544555;" }
X
XNote that the value fields are simply modem command strings,
Xgenerally ones that dial touchtone sequences. The trailing
Xsemicolon is part of the dialing string. (It tells a Hayes-
Xcompatible modem not to wait for a carrier tone.)
X
X- Stewart A. Levin
X stew@sep.stanford.edu
SHAR_EOF
: || $echo 'restore of' 'xtdialer.dir/README' 'failed'
fi
rm -fr _sh00406
exit 0